CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swagd_f.zip/DATETIME.SWG/0032_BASM Get Date Routine.pas

Pascal/Delphi Source File | 1993-11-26 | 351b | 27 lines

{
From: LIAM STITT
Subj: BASM Get Date
}

  type
    DateInfo = record
      Year: Word;
      Month: Byte;
      Day: Byte;
      DOW: Byte;
   end;

  var
    DI: DateInfo;

  procedure GetDate; assembler;
  asm
    mov ah,2Ah
    int 21h
    mov DI.Year,cx
    mov DI.Month,dh
    mov DI.Day,dl
    mov DI.DOW,al
  end;